home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / cdactual / scripts / www / www.exe / sistema / wwwr5.ini < prev    next >
Encoding:
INI File  |  1997-08-17  |  20.9 KB  |  428 lines
  1. [script]
  2. n0=#user.prot.add.all off
  3. n1=raw 401:*: set %User.Nick 0 | halt
  4. n2=raw 301:*: halt
  5. n3=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  6. n4=raw 312:*: halt
  7. n5=raw 313:*: halt
  8. n6=raw 317:*: halt
  9. n7=raw 319:*: halt
  10. n8=raw 318:* {
  11. n9=  if (%User.Nick == 0) { error1 $2 $+ , nick no existente | goto done }
  12. n10=  set %User.Address $mask(%User.Address,3)
  13. n11=  set %Var.Temp $readini $mircdirsistema\protect.ini %User.Address Channels
  14. n12=  if (%Var.Temp == *) { error1 $2 Esta en la lista de protegidos | goto done }
  15. n13=  writeini $mircdirsistema\protect.ini %User.Address Channels *
  16. n14=  meni A±adido $2 ( $+ %User.Address $+ ) A la lista de protegidos. Canales: Todos | .auser 85 %User.Address
  17. n15=  :done
  18. n16=  unset %User.* | .disable #user.prot.add.all | halt
  19. n17=}
  20. n18=#user.prot.add.all end
  21. n19=#user.prot.add.chan off
  22. n20=raw 401:*: set %User.Nick 0 | halt
  23. n21=raw 301:*: halt
  24. n22=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  25. n23=raw 312:*: halt
  26. n24=raw 313:*: halt
  27. n25=raw 317:*: halt
  28. n26=raw 319:*: halt
  29. n27=raw 318:* {
  30. n28=  if (%User.Nick == 0) { error1 $2 $+ , nick no existente | goto done }
  31. n29=  set %User.Address $mask(%User.Address,3)
  32. n30=  set %Var.Temp $readini $mircdirsistem\protect.ini %User.Address Channels
  33. n31=  if (%Var.Temp == $null) {
  34. n32=    writeini $mircdirsistema\protect.ini %User.Address Channels %User.Channel
  35. n33=    meni %User.Channel A±adido $2 ( $+ %User.Address $+ ) A la lista de protegidos. Canales: %User.Channel | .auser 85 %User.Address | goto done
  36. n34=  }
  37. n35=  if (%Var.Temp == *) {
  38. n36=    if ($yesno(Borrarlo de la lista de protegidos) == 1) {
  39. n37=      writeini $mircdirsistema\protect.ini %User.Address Channels %User.Channel
  40. n38=      meni %User.Channel A±adido $2 ( $+ %User.Address $+ ) A la lista de protegido. Canales: %User.Channel | .auser 85 %User.Address | goto done
  41. n39=    } | else { goto done }
  42. n40=  }
  43. n41=  if (%User.Channel isin %Var.Temp) { error1 $2 Esta en la lista de protegidos de %User.Channel $+ . | goto done }
  44. n42=  set %Var.Temp $addtok(%Var.Temp,%User.Channel,32) | writeini $mircdirsistema\protect.ini %User.Address Channels %Var.Temp
  45. n43=  meni %User.Channel A±adido $2 ( $+ %User.Address $+ ) A la lista de protegidos Canales:: %User.Channel | .auser 85 %User.Address
  46. n44=  :done
  47. n45=  unset %User.* | .disable #user.prot.add.chan | halt
  48. n46=}
  49. n47=#user.prot.add.chan end
  50. n48=#user.prot.rem.all off
  51. n49=raw 401:*: set %User.Nick 0 | halt
  52. n50=raw 301:*: halt
  53. n51=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  54. n52=raw 312:*: halt
  55. n53=raw 313:*: halt
  56. n54=raw 317:*: halt
  57. n55=raw 319:*: halt
  58. n56=raw 318:* {
  59. n57=  if (%User.Nick == 0) { error1 $2 $+ , nick no existente | goto done }
  60. n58=  set %User.Address $mask(%User.Address,3)
  61. n59=  set %Var.Temp $readini $mircdirsistema\protect.ini %User.Address Channels
  62. n60=  if (%Var.Temp == $null) { error1 $2 No esta en la lista de protegidos. | goto done }
  63. n61=  remini $mircdirsistema\protect.ini %User.Address
  64. n62=  meni  Borrado $2 ( $+ %User.Address $+ ) De la lista de protegidos Canales : Todos | .ruser 85 %User.Address
  65. n63=  :done
  66. n64=  unset %User.* | .disable #user.prot.rem.all | halt
  67. n65=}
  68. n66=#user.prot.rem.all end
  69. n67=#user.prot.rem.chan off
  70. n68=raw 401:*: set %User.Nick 0 | halt
  71. n69=raw 301:*: halt
  72. n70=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  73. n71=raw 312:*: halt
  74. n72=raw 313:*: halt
  75. n73=raw 317:*: halt
  76. n74=raw 319:*: halt
  77. n75=raw 318:* {
  78. n76=  if (%User.Nick == 0) { error1 $2 $+ , nick no existente | goto done }
  79. n77=  set %User.Address $mask(%User.Address,3)
  80. n78=  set %Var.Temp $readini $mircdirsistema\protect.ini %User.Address Channels
  81. n79=  if (%Var.Temp == $null) { error1 $2 No esta en la lista de protegidos de %User.Channel $+ . | goto done }
  82. n80=  if (%Var.Temp == *) {
  83. n81=    if ($yesno(Borrar de tods los canales) == 1) {
  84. n82=      set %Var.Temp %User.Address | remini $mircdirsistema\protect.ini %Var.Temp
  85. n83=      meni %User.Channel Borrado $2 ( $+ %User.Address $+ ) De la lista de protegidos Canales: Todos | .ruser 85 %User.Address | goto done
  86. n84=    } | else { goto done }
  87. n85=  }
  88. n86=  if (%Var.Temp == %User.Channel) {
  89. n87=    remini $mircdirsistema\protect.ini %User.Address
  90. n88=    meni %User.Channel Borrado $2 ( $+ %User.Address $+ ) De la lista de protegidos Canales:Todosl | .ruser 85 %User.Address | goto done
  91. n89=  }
  92. n90=  set %Var.Temp $remtok(%Var.Temp,%User.Channel,32) | writeini $mircdirsistema\protect.ini %User.Address Channels %Var.Temp
  93. n91=  meni %User.Channel Borrado $2 ( $+ %User.Address $+ ) De la lista de protegidos Canales: %User.Channel | .ruser 85 %User.Address
  94. n92=  :done
  95. n93=  unset %User.* | .disable #user.prot.rem.chan | halt
  96. n94=}
  97. n95=#user.prot.rem.chan end
  98. n96=#user.autoop.add.all off
  99. n97=raw 401:*: set %User.Nick 0 | halt
  100. n98=raw 301:*: halt
  101. n99=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  102. n100=raw 312:*: halt
  103. n101=raw 313:*: halt
  104. n102=raw 317:*: halt
  105. n103=raw 319:*: halt
  106. n104=raw 318:* {
  107. n105=  if (%User.Nick == 0) { error1 $2 $+ ,  nick no existente | goto done }
  108. n106=  set %User.Address $mask(%User.Address,3)
  109. n107=  set %Var.Temp $readini $mircdirsistema\autoop.ini %User.Address Channels
  110. n108=  if (%Var.Temp == *) { error1 $2 Esta todavia en la lista de auto OPs | goto done }
  111. n109=  writeini $mircdirsistema\autoop.ini %User.Address Channels *
  112. n110=  meni  A±adido $2 ( $+ %User.Address $+ ) A la lista de auto OP. Canales: Todos | .auser 80 %User.Address
  113. n111=  :done
  114. n112=  unset %User.* | .disable #user.autoop.add.all | halt
  115. n113=}
  116. n114=#user.autoop.add.all end
  117. n115=#user.autoop.add.chan off
  118. n116=raw 401:*: set %User.Nick 0 | halt
  119. n117=raw 301:*: halt
  120. n118=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  121. n119=raw 312:*: halt
  122. n120=raw 313:*: halt
  123. n121=raw 317:*: halt
  124. n122=raw 319:*: halt
  125. n123=raw 318:* {
  126. n124=  if (%User.Nick == 0) { error1 $2 $+ , nick no existente | goto done }
  127. n125=  set %User.Address $mask(%User.Address,3)
  128. n126=  set %Var.Temp $readini $mircdirsistema\autoop.ini %User.Address Channels
  129. n127=  if (%Var.Temp == $null) {
  130. n128=    writeini $mircdirsistema\autoop.ini %User.Address Channels %User.Channel
  131. n129=    meni %User.Channel A±adido $2 ( $+ %User.Address $+ ) A la lista de Auto OP. Canales: %User.Channel | .auser 80 %User.Address | goto done
  132. n130=  }
  133. n131=  if (%Var.Temp == *) {
  134. n132=    if ($yesno(Borrar de Todos los canales) == 1) {
  135. n133=      writeini $mircdirsistema\autoop.ini %User.Address Channels %User.Channel
  136. n134=      meni %User.Channel A±adido $2 ( $+ %User.Address $+ ) A la lista de Auto OP. Canales: %User.Channel | .auser 80 %User.Address | goto done
  137. n135=    } | else { goto done }
  138. n136=  }
  139. n137=  if (%User.Channel isin %Var.Temp) { error $2 is already on the auto op list for %User.Channel $+ . | goto done }
  140. n138=  set %Var.Temp $addtok(%Var.Temp,%User.Channel,32) | writeini $mircdirsistema\autoop.ini %User.Address Channels %Var.Temp
  141. n139=  meni %User.Channel A±adido $2 ( $+ %User.Address $+ ) A la lista de auto OP. Canales: %User.Channel | .auser 80 %User.Address    
  142. n140=  :done
  143. n141=  unset %User.* | .disable #user.autoop.add.chan | halt
  144. n142=}
  145. n143=#user.autoop.add.chan end
  146. n144=#user.autoop.rem.all off
  147. n145=raw 401:*: set %User.Nick 0 | halt
  148. n146=raw 301:*: halt
  149. n147=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  150. n148=raw 312:*: halt
  151. n149=raw 313:*: halt
  152. n150=raw 317:*: halt
  153. n151=raw 319:*: halt
  154. n152=raw 318:* {
  155. n153=  if (%User.Nick == 0) { error $2 $+ , nick no existente | goto done }
  156. n154=  set %User.Address $mask(%User.Address,3)
  157. n155=  set %Var.Temp $readini $mircdirsistema\autoop.ini %User.Address Channels
  158. n156=  if (%Var.Temp == $null) { error1 $2 No esta en la lista de Auto OPs. | goto done }
  159. n157=  remini $mircdirsistema\autoop.ini %User.Address
  160. n158=  meni %User.Channel Borrado $2 ( $+ %User.Address $+ ) De la lista de Auto OP. Canales: Todos | .ruser 80 %User.Address
  161. n159=  :done
  162. n160=  unset %User.* | .disable #user.autoop.rem.all | halt
  163. n161=}
  164. n162=#user.autoop.rem.all end
  165. n163=#user.autoop.rem.chan off
  166. n164=raw 401:*: set %User.Nick 0 | halt
  167. n165=raw 301:*: halt
  168. n166=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  169. n167=raw 312:*: halt
  170. n168=raw 313:*: halt
  171. n169=raw 317:*: halt
  172. n170=raw 319:*: halt
  173. n171=raw 318:* {
  174. n172=  if (%User.Nick == 0) { error $2 $+ , nick no existente | goto done }
  175. n173=  set %User.Address $mask(%User.Address,3)
  176. n174=  set %Var.Temp $readini $mircdirsistema\autoop.ini %User.Address Channels
  177. n175=  if (%Var.Temp == $null) { error1 $2 No esta en la lista de auto OP de %User.Channel $+ . | goto done }
  178. n176=  if (%Var.Temp == *) {
  179. n177=    if ($yesno(Borrar de todos los canales) == 1) {
  180. n178=      set %Var.Temp %User.Address | remini $mircdirsistema\autoop.ini %Var.Temp
  181. n179=      meni %User.Channel Borrado $2 ( $+ %User.Address $+ ) De la lista de Auto OP. Canales: Todos | .ruser 80 %User.Address | goto done
  182. n180=    } | else { goto done }
  183. n181=  }
  184. n182=  if (%Var.Temp == %User.Channel) {
  185. n183=    remini $mircdirsistema\autoop.ini %User.Address
  186. n184=    meni %User.Channel Borrado $2 ( $+ %User.Address $+ ) De la lista de auto OP. Canales: Todos | .ruser 80 %User.Address | goto done
  187. n185=  }
  188. n186=  set %Var.Temp $remtok(%Var.Temp,%User.Channel,32) | writeini $mircdirsistema\autoop.ini %User.Address Channels %Var.Temp
  189. n187=  meni %User.Channel Borrado $2 ( $+ %User.Address $+ ) De la lista de auto OP. Canales: %User.Channel | .ruser 80 %User.Address
  190. n188=  :done
  191. n189=  unset %User.* | .disable #user.autoop.rem.chan | halt
  192. n190=}
  193. n191=#user.autoop.rem.chan end
  194. n192=#user.autov.add.all off
  195. n193=raw 401:*: set %User.Nick 0 | halt
  196. n194=raw 301:*: halt
  197. n195=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  198. n196=raw 312:*: halt
  199. n197=raw 313:*: halt
  200. n198=raw 317:*: halt
  201. n199=raw 319:*: halt
  202. n200=raw 318:* {
  203. n201=  if (%User.Nick == 0) { error $2 $+ , nick no existente | goto done }
  204. n202=  set %User.Address $mask(%User.Address,3)
  205. n203=  set %Var.Temp $readini $mircdirsistema\voice.ini %User.Address Channels
  206. n204=  if (%Var.Temp == *) { error1 $2 Esta todavia en la lista de Autovoz | goto done }
  207. n205=  writeini $mircdirsistema\voice.ini %User.Address Channels *
  208. n206=  meni  A±adido $2 ( $+ %User.Address $+ ) A la lista de Autovoz. Canales: Todos | .auser 60 %User.Address
  209. n207=  :done
  210. n208=  unset %User.* | .disable #user.autov.add.all | halt
  211. n209=}
  212. n210=#user.autov.add.all end
  213. n211=#user.autov.add.chan off
  214. n212=raw 401:*: set %User.Nick 0 | halt
  215. n213=raw 301:*: halt
  216. n214=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  217. n215=raw 312:*: halt
  218. n216=raw 313:*: halt
  219. n217=raw 317:*: halt
  220. n218=raw 319:*: halt
  221. n219=raw 318:* {
  222. n220=  if (%User.Nick == 0) { error1 $2 $+ , nick no existente | goto done }
  223. n221=  set %User.Address $mask(%User.Address,3)
  224. n222=  set %Var.Temp $readini $mircdirsistema\voice.ini %User.Address Channels
  225. n223=  if (%Var.Temp == $null) {
  226. n224=    writeini $mircdirsistema\voice.ini %User.Address Channels %User.Channel
  227. n225=    meni %User.Channel A±adido $2 ( $+ %User.Address $+ ) A la lista de Autovoz. Canales: %User.Channel | .auser 60 %User.Address | goto done
  228. n226=  }
  229. n227=  if (%Var.Temp == *) {
  230. n228=    if ($yesno(Borrar de todos los canales) == 1) {
  231. n229=      writeini $mircdirsistema\voice.ini %User.Address Channels %User.Channel
  232. n230=      meni %User.Channel A±adido $2 ( $+ %User.Address $+ ) A la lista de Autovoz. Canales: %User.Channel | .auser 60 %User.Address | goto done
  233. n231=    } | else { goto done }
  234. n232=  }
  235. n233=  if (%User.Channel isin %Var.Temp) { error1 $2 Esta todavia en la lista de Autovoz de %User.Channel $+ . | goto done }
  236. n234=  set %Var.Temp $addtok(%Var.Temp,%User.Channel,32) | writeini $mircdirsistema\voice.ini %User.Address Channels %Var.Temp
  237. n235=  meni %User.Channel A±adido $2 ( $+ %User.Address $+ ) A la lista de Autovoz. Canales: %User.Channel | .auser 60 %User.Address
  238. n236=  :done
  239. n237=  unset %User.* | .disable #user.autov.add.chan | halt
  240. n238=}
  241. n239=#user.autov.add.chan end
  242. n240=#user.autov.rem.all off
  243. n241=raw 401:*: set %User.Nick 0 | halt
  244. n242=raw 301:*: halt
  245. n243=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  246. n244=raw 312:*: halt
  247. n245=raw 313:*: halt
  248. n246=raw 317:*: halt
  249. n247=raw 319:*: halt
  250. n248=raw 318:* {
  251. n249=  if (%User.Nick == 0) { error1 $2 $+ , nick no existente | goto done }
  252. n250=  set %User.Address $mask(%User.Address,3)
  253. n251=  set %Var.Temp $readini $mircdirsistema\voice.ini %User.Address Channels
  254. n252=  if (%Var.Temp == $null) { error $2 is not on the auto voice list for all channels. | goto done }
  255. n253=  remini $mircdirsistema\voice.ini %User.Address
  256. n254=  meni  Borrado $2 ( $+ %User.Address $+ ) from auto voice list. Canales: Todos | .ruser 60 %User.Address
  257. n255=  :done
  258. n256=  unset %User.* | .disable #user.autov.rem.all | halt
  259. n257=}
  260. n258=#user.autov.rem.all end
  261. n259=#user.autov.rem.chan off
  262. n260=raw 401:*: set %User.Nick 0 | halt
  263. n261=raw 301:*: halt
  264. n262=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  265. n263=raw 312:*: halt
  266. n264=raw 313:*: halt
  267. n265=raw 317:*: halt
  268. n266=raw 319:*: halt
  269. n267=raw 318:* {
  270. n268=  if (%User.Nick == 0) { error1 $2 $+ , nick no existente | goto done }
  271. n269=  set %User.Address $mask(%User.Address,3)
  272. n270=  set %Var.Temp $readini $mircdirsistema\voice.ini %User.Address Channels
  273. n271=  if (%Var.Temp == $null) { error1 $2 No esta en la lista de Autovoz de  %User.Channel $+ . | goto done }
  274. n272=  if (%Var.Temp == *) {
  275. n273=    if ($yesno(Borrar de todos los canales) == 1) {
  276. n274=      set %Var.Temp %User.Address | remini $mircdirsistema\voice.ini %Var.Temp
  277. n275=      meni %User.Channel Borrado $2 ( $+ %User.Address $+ ) De la lista de Autovozt. Canales: Todos | .ruser 60 %User.Address | goto done
  278. n276=    } | else { goto done }
  279. n277=  }
  280. n278=  if (%Var.Temp == %User.Channel) {
  281. n279=    remini $mircdirsistema\voice.ini %User.Address
  282. n280=    meni %User.Channel Borrado $2 ( $+ %User.Address $+ ) De la lista de Autovoz. Canales: Todos | .ruser 60 %User.Address | goto done
  283. n281=  }
  284. n282=  set %Var.Temp $remtok(%Var.Temp,%User.Channel,32) | writeini $mircdirsistema\voice.ini %User.Address Channels %Var.Temp
  285. n283=  meni %User.Channel Borrado $2 ( $+ %User.Address $+ ) De la lista de Autovoz. Canales: %User.Channel | .ruser 60 %User.Address
  286. n284=  :done
  287. n285=  unset %User.* | .disable #user.autov.rem.chan | halt
  288. n286=}
  289. n287=#user.autov.rem.chan end
  290. n288=#user.shit.add.all off
  291. n289=raw 401:*: set %User.Nick 0 | halt
  292. n290=raw 301:*: halt
  293. n291=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  294. n292=raw 312:*: halt
  295. n293=raw 313:*: halt
  296. n294=raw 317:*: halt
  297. n295=raw 319:*: halt
  298. n296=raw 318:* {
  299. n297=  if (%User.Nick == 0) { error $2 $+ , nick no existente | .disable #user.shit.add.all | unset %User.* | halt }
  300. n298=  set %Var.Index 0
  301. n299=  :search
  302. n300=  set %User.Temp $mask(%User.Address,%Var.Index)
  303. n301=  set %Var.Temp $readini $mircdirsistema\shitlist.ini %User.Temp Channels
  304. n302=  if ((%Var.Temp == *) && (%Var.Index == %User.Mask)) { error1 $2 Esta todavia en la Shitlist. | .disable #user.shit.add.all | unset %User.* | halt }
  305. n303=  if (%Var.Temp != $null) {
  306. n304=    if ($yesno(Found [ $2 ] on shitlist, remove) == 1) {
  307. n305=      remini $mircdirsistema\shitlist.ini %User.Temp
  308. n306=    }
  309. n307=  }
  310. n308=  if (%Var.Index == 9) { goto end }
  311. n309=  inc %Var.Index | goto search
  312. n310=  :end
  313. n311=  set %User.Address $mask(%User.Address,%User.Mask)
  314. n312=  writeini $mircdirsistema\shitlist.ini %User.Address Channels *
  315. n313=  writeini $mircdirsistema\shitlist.ini %User.Address Reason %User.Reason
  316. n314=  meni %User.Channel A±adido $2 ( $+ %User.Address $+ ) A la Shitlist. Canales: Todos | .auser -a 1 %User.Address
  317. n315=  :done
  318. n316=  if (($me isop %User.Channel) && ($2 ison %User.Channel)) { ban %User.Channel $2 2 | kick %User.Channel $2 %User.Reason (Shitlisted! }
  319. n317=  unset %User.* | .disable #user.shit.add.all | halt
  320. n318=}
  321. n319=#user.shit.add.all end
  322. n320=#user.shit.add.chan off
  323. n321=raw 401:*: set %User.Nick 0 | halt
  324. n322=raw 301:*: halt
  325. n323=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  326. n324=raw 312:*: halt
  327. n325=raw 313:*: halt
  328. n326=raw 317:*: halt
  329. n327=raw 319:*: halt
  330. n328=raw 318:* {
  331. n329=  if (%User.Nick == 0) { error $2 $+ , nick no existente | .disable #user.shit.add.chan | unset %User.* | halt }
  332. n330=  set %Var.Index 0
  333. n331=  :search
  334. n332=  set %User.Temp $mask(%User.Address,%Var.Index)
  335. n333=  set %Var.Temp $readini $mircdirsistema\shitlist.ini %User.Temp Channels
  336. n334=  if (%Var.Temp == *) {
  337. n335=    if ($yesno(Borrar de todos los canales) == 1) {
  338. n336=      remini $mircdirsistema\shitlist.ini %User.Temp | .ruser 1 $mask(%User.Address,%Var.Index)
  339. n337=      set %Var.Temp %User.Channel | goto done
  340. n338=    } | else { .disable #user.shit.add.chan | unset %User.* | halt }
  341. n339=  }
  342. n340=  if (%Var.Temp != $null) {
  343. n341=    if (%Var.Index == %User.Mask) {
  344. n342=      if (%User.Channel isin %Var.Temp) { error1 $2 Esta todavia en la Shitlist de %User.Channel $+ . | .disable #user.shit.add.chan | unset %User.* | halt }
  345. n343=      set %Var.Temp $readini $mircdirsistema\shitlist.ini %User.Temp Channels
  346. n344=      set %Var.Temp $addtok(%Var.Temp,%User.Channel,32) | goto done
  347. n345=    }
  348. n346=    else {
  349. n347=      if ($yesno(Found [ $2 ] on shitlist, remove) == 1) {
  350. n348=        remini $mircdirsistema\shitlist.ini %User.Temp | .ruser 1 $mask(%User.Address,%Var.Index)
  351. n349=        set %Var.Temp %User.Channel | goto done
  352. n350=      }
  353. n351=    }
  354. n352=  }
  355. n353=  if (%Var.Temp == $null) { set %Var.Temp %User.Channel }
  356. n354=  if (%Var.Index == 9) { goto done }
  357. n355=  inc %Var.Index | goto search
  358. n356=  :done
  359. n357=  set %User.Address $mask(%User.Address,%User.Mask)
  360. n358=  writeini $mircdirsistema\shitlist.ini %User.Address Channels %Var.Temp
  361. n359=  writeini $mircdirsistema\shitlist.ini %User.Address Reason %User.Reason
  362. n360=  meni %User.Channel A±adido $1 ( $+ %User.Address $+ ) A la Shitlist. Canales: %Var.Temp | .auser -a 1 %User.Address
  363. n361=  if (($me isop %User.Channel) && ($2 ison %User.Channel)) { ban %User.Channel $2 2 | kick %User.Channel $2 %User.Reason (Shitlisted! }
  364. n362=  unset %User.* | .disable #user.shit.add.chan | halt
  365. n363=}
  366. n364=#user.shit.add.chan end
  367. n365=#user.shit.rem.all off
  368. n366=raw 401:*: set %User.Nick 0 | halt
  369. n367=raw 301:*: halt
  370. n368=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  371. n369=raw 312:*: halt
  372. n370=raw 313:*: halt
  373. n371=raw 317:*: halt
  374. n372=raw 319:*: halt
  375. n373=raw 318:* {
  376. n374=  if (%User.Nick == 0) { error1 $2 $+ ,  nick no existente | set %User.Removed 1 | goto done }
  377. n375=  set %Var.Index 0
  378. n376=  :search
  379. n377=  set %User.Temp $mask(%User.Address,%Var.Index)
  380. n378=  set %Var.Temp $readini $mircdirsistema\shitlist.ini %User.Temp Channels
  381. n379=  if (%Var.Temp != $null) {
  382. n380=    remini $mircdirsistema\shitlist.ini %User.Temp | set %User.Removed 1 | if (%Var.Temp == *) { set %Var.Temp All }
  383. n381=    meni -a  Borrado $2 ( $+ %User.Temp $+ ) De la Shitlist. Canales: %Var.Temp | .ruser 1 %User.Temp
  384. n382=  }
  385. n383=  if (%Var.Index == 9) { goto done }
  386. n384=  inc %Var.Index | goto search
  387. n385=  :done
  388. n386=  if (%User.Removed != 1) { error $2 is not on the shitlist. }
  389. n387=  unset %User.* | .disable #user.shit.rem.all | halt
  390. n388=}
  391. n389=#user.shit.rem.all end
  392. n390=#user.shit.rem.chan off
  393. n391=raw 401:*: set %User.Nick 0 | halt
  394. n392=raw 301:*: halt
  395. n393=raw 311:*: set %User.Address $2 $+ ! $+ $3 $+ @ $+ $4 | halt
  396. n394=raw 312:*: halt
  397. n395=raw 313:*: halt
  398. n396=raw 317:*: halt
  399. n397=raw 319:*: halt
  400. n398=raw 318:* {
  401. n399=  if (%User.Nick == 0) { error1 $2 $+ ,  nick no existente | set %User.Removed 1 | goto done }
  402. n400=  set %Var.Index 0
  403. n401=  :search
  404. n402=  set %User.Temp $mask(%User.Address,%Var.Index)
  405. n403=  set %Var.Temp $readini $mircdirsistema\shitlist.ini %User.Temp Channels
  406. n404=  if (%Var.Temp == *) {
  407. n405=    if ($yesno(Borrar de todos los canales) == 1) {
  408. n406=      remini $mircdirsistema\shitlist.ini %User.Temp | set %User.Removed 1
  409. n407=      meni %User.Channel Borrado $2 ( $+ %User.Temp $+ ) De la Shitlist. Canales: Todos | .ruser 1 %User.Temp
  410. n408=    } | else { inc %Var.Index | goto search }
  411. n409=  }
  412. n410=  if (%Var.Temp == %User.Channel) {
  413. n411=    remini $mircdirsistema\shitlist.ini %User.Temp | set %User.Removed 1
  414. n412=    meni %User.Channel Borrado $2 ( $+ %User.Temp $+ ) De la Shitlist. Canales: Todos | .ruser 1 %User.Temp
  415. n413=    inc %Var.Index | goto search
  416. n414=  }
  417. n415=  if (%User.Channel isin %Var.Temp) {
  418. n416=    set %Var.Temp $remtok(%Var.Temp,%User.Channel,32) | writeini $mircdirsistema\shitlist.ini %User.Temp Channels %Var.Temp | set %User.Removed 1
  419. n417=    meni %User.Channel Borrado $2 ( $+ %User.Temp $+ ) De la Shitlist. Canales: %User.Channel | .ruser 1 %User.Temp
  420. n418=  }
  421. n419=  if (%Var.Index == 9) { goto done }
  422. n420=  inc %Var.Index | goto search
  423. n421=  :done
  424. n422=  if (%User.Removed != 1) { error1 $2 No esta en la Shitlist de %User.Channel $+ . }
  425. n423=  .disable #user.shit.rem.chan | unset %User.* | halt
  426. n424=}
  427. n425=#user.shit.rem.chan end
  428.